use strict;
use File::Path qw(rmtree);
use File::Copy qw(copy);
use File::Copy::Recursive qw(dircopy);

rmtree 'my_app/public/dahamavpnapp',{verbose => 1} or die;
unlink('my_app/templates/login/protected.html.ep') or die;

copy('dahamavpnapp/dist/index.html','my_app/templates/login/protected.html.ep') or die;

dircopy('dahamavpnapp/dist/dahamavpnapp','my_app/public/dahamavpnapp') or die;

print "操作成功！\n"